home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 7 / Eagles_Nest_Mac_Collection_Disc_7.TOAST / General Communication / CallLogMP2 / Dial Service next >
Text File  |  1988-06-11  |  2KB  |  55 lines
  1.  Modem File = Standard (Call Log)
  2.  Modem Script Name = Dial Service
  3.  
  4. 1   Dialog Install  "='Now Dialing ',ServiceName"
  5. 2   Do Script * "Grab Modem"
  6. 3   If Success 
  7. 4     If Expression  "=DialingMode='pulse'"
  8. 5       Send Text String  "ATDP"
  9. 6     Else If Expression  "=DialingMode='tone'"
  10. 7       Send Text String  "ATDT"
  11. 8     Else
  12. 9       Send Text String  "ATD"
  13. 10    End If
  14. 11    Send Text String  "=PhoneNumber,'^M'"
  15. 12    Set Variable mysuccess from Expression  "=false"
  16. 13    Repeat
  17. 14      When Line Contains  "Connect"
  18. 15        If Line Contains  "300"
  19. 16          Set Comm Param Baud Rate 300 
  20. 17        Else If Line Contains  "1200"
  21. 18          Set Comm Param Baud Rate 1200 
  22. 19        Else If Line Contains  "2400"
  23. 20          Set Comm Param Baud Rate 2400 
  24. 21        End If
  25. 22        Set Variable online from Expression  "=true"
  26. 23        Dialog Discard  
  27. 24        Set Variable mysuccess from Expression  "=true"
  28. 25        Set Variable timeStamp from Date & Time 
  29. 26        Append to File "Call Log"
  30. 27        Send Local to File  "•------------------------------------------------------------------------------•"
  31. 28        Send Local to File  "^M"
  32. 29        Send Local to File  "='Call to ',ServiceName,' via ',PhoneNumber,' placed at ',timeStamp,'.'"
  33. 30        Send Local to File  "^M"
  34. 31        Capture Off 
  35. 32        Set Variable callTimer from Expression  "=TICKCOUNT"
  36. 33      Or When Text Equals  "busy"
  37. 34        Send Text String  "A/"
  38. 35        Wait for Text  "a/"
  39. 36        Cycle
  40. 37      Or When Text Equals  "no dialtone"
  41. 38        Dialog Discard  
  42. 39        Alert * OK  "The modem is not connected to a good phone line."
  43. 40        Return Failure 
  44. 41      Or When Seconds Have Passed  "=30"
  45. 42        Dialog Discard  
  46. 43        Alert * OK  "='No answer after dialing ',ServiceName"
  47. 44        Return Failure 
  48. 45      End When
  49. 46    Until Expression  "=mysuccess"
  50. 47  Else
  51. 48    Dialog Discard  
  52. 49    Set Variable mysuccess from Expression  "=false"
  53. 50  End If
  54. 51  Return Expression  "=mysuccess"
  55.